<?php

/*
###	mail.class.php
	说明：例子如下
*/

/*	$smtpserver = "smtp.sina.com";
	$smtpserverport =25;	
	$smtpusermail = "corrie@sina.com";
	$smtpemailto = "corrie@sina.com";
	$smtpuser = "corrie";	
	$smtppass = "826022912";
	$mailsubject = "测试邮件主题!";	
	$mailbody = "This is a test mailsf 这里也是中文";	
	$mailtype = "TXT";
	
	
	$smtp = new smtp($smtpserver ,true,$smtpuser,$smtppass);//这里面的一个true是表示使用身份验证,否则不使用身份验证.
	$smtp->debug = TRUE;//是否显示发送的调试信息	
	$smtp->sendmail($smtpemailto, $smtpusermail, $mailsubject, $mailbody, $mailtype);*/
?>
<?php

class Helper_Smtp {
	private $smtp_port; //SMTP服务器端口
	private $time_out;
	private $host_name;
	private $log_file;
	private $relay_host;
	private $mail_from;
	public $debug;
	private $auth;
	private $user;
	private $pass;
	private $charset = "utf-8";
	private $postname;
	private $encode = "base64";
	private $sock;
	
	public function Helper_Smtp() {
	
	}
	
	/**
	 * Login mail server
	 *
	 * @param string server address
	 * @param string mailer name and address like:'corrie<corrie@sina.com>'
	 * @param string $user
	 * @param string $pass
	 */
	public function login($smtp_host = "", $mail_from = NULL, $user = NULL, $pass = NULL) {
		$this->debug = FALSE;
		@list ( $this->relay_host, $this->smtp_port ) = explode ( ':', $smtp_host );
		$this->smtp_port = $this->smtp_port == '' ? '25' : $this->smtp_port;
		
		if ($mail_from !== NULL) {
			if (preg_match ( '/<(.*)>/', $mail_from )) {
				@preg_match( '/(.+)<(.*)>/', $mail_from, $matches);
				$this->mail_from = $matches[2];
				$this->postname = $matches[1];
			} else {
				$this->mail_from = $mail_from;
			}
			//exit ( htmlspecialchars ( 'from:' . $this->mail_from ) );
		} else {
			Mid::loadFunc ( 'env.lib' );
			$this->mail_from = $user . '@' . _getServer ( $mail_from );
		}
		$this->postname = $this->postname!='' ? $this->postname : 'MidPHP System';
		$this->time_out = 30;
		if ($user === NULL || $pass === NULL) {
			$this->auth = FALSE;
		} else {
			$this->auth = TRUE;
			$this->user = $user;
			$this->pass = $pass;
		}
		$this->host_name = "localhost";
		$this->log_file = "";
		$this->sock = FALSE;
	}
	
	/**
	 * Send mail method
	 *
	 * @param string desined mail address
	 * @param string $subject
	 * @param string $body
	 * @param string $mailtype
	 * @param string $cc
	 * @param string $bcc
	 * @param string $additional_headers
	 * @return bool
	 */
	public function sendmail($to, $subject = "", $body = "", $mailtype = 'TXT', $cc = "", $bcc = "", $additional_headers = "") {
		if ($this->charset != 'utf-8') {
			$subject = iconv ( 'uft-8', $this->charset, $subject );
			$body = iconv ( 'uft-8', $this->charset, $body );
		}
		$mail_from = $this->get_address ( $this->strip_comment ( $this->mail_from ) );
		$header = '';
		$body = ereg_replace ( "(^|(\r\n))(\.)", "\1.\3", $body );
		$header .= "MIME-Version:1.0\r\n";
		if ($mailtype == "HTML") {
			$header .= "Content-Type:text/html; ";
		} elseif ($mailtype == 'TXT') {
			$header .= "Content-Type:text/plain; ";
		} elseif ($mailtype == 'MUTI') {
			$header .= "Content-Type: multipart/alternative; ";
		}
		$header .= "charset=" . $this->charset . "\r\n";
		
		switch ($this->encode) {
			case 'base64' :
				$subject = $this->base64 ( $subject );
				$body = chunk_split ( base64_encode ( $body ) );
				break;
		}
		$header .= "Content-Transfer-Encoding: " . $this->encode . "\r\n";
		
		$header .= "To: " . $to . "\r\n";
		if ($cc != "") {
			$header .= "Cc: " . $cc . "\r\n";
		}
		$postname = $this->base64 ( $this->postname );
		$header .= "From: $postname" . '<' . $this->mail_from . '>' . "\r\n";
		$header .= "Subject: " . $subject . "\r\n";
		$header .= $additional_headers;
		$header .= "Date: " . date ( "r" ) . "\r\n";
		//$header .= "X-Mailer:By Redhat (PHP/".phpversion().")\r\n";
		list ( $msec, $sec ) = explode ( " ", microtime () );
		$header .= "Message-ID: <" . date ( "YmdHis", $sec ) . "." . ($msec * 1000000) . "." . $mail_from . ">\r\n";
		$TO = explode ( ",", $this->strip_comment ( $to ) );
		
		if ($cc != "") {
			$TO = array_merge ( $TO, explode ( ",", $this->strip_comment ( $cc ) ) );
		}
		if ($bcc != "") {
			$TO = array_merge ( $TO, explode ( ",", $this->strip_comment ( $bcc ) ) );
		}
		$sent = TRUE;
		foreach ( $TO as $rcpt_to ) {
			$rcpt_to = $this->get_address ( $rcpt_to );
			if (! $this->smtp_sockopen ( $rcpt_to )) {
				$this->log_write ( "Error: Cannot send email to " . $rcpt_to . "\n" );
				$sent = FALSE;
				continue;
			}
			
			if ($this->smtp_send ( $this->host_name, $mail_from, $rcpt_to, $header, $body )) {
				$this->log_write ( "E-mail has been sent to <" . $rcpt_to . ">\n" );
			} else {
				$this->log_write ( "Error: Cannot send email to <" . $rcpt_to . ">\n" );
				$sent = FALSE;
			}
			fclose ( $this->sock );
			$this->log_write ( "Disconnected from remote host\n" );
		}
		return $sent;
	}
	/* Private Functions */
	private function smtp_send($helo, $from, $to, $header, $body = "") {
		if (! $this->smtp_putcmd ( "HELO", $helo )) {
			return $this->smtp_error ( "sending HELO command" );
		}
		#auth	
		if ($this->auth) {
			if (! $this->smtp_putcmd ( "AUTH LOGIN", base64_encode ( $this->user ) )) {
				return $this->smtp_error ( "sending HELO command" );
			}
			if (! $this->smtp_putcmd ( "", base64_encode ( $this->pass ) )) {
				return $this->smtp_error ( "sending HELO command" );
			}
		}
		
		if (! $this->smtp_putcmd ( "MAIL", "FROM:<" . $from . ">" )) {
			return $this->smtp_error ( "sending MAIL FROM command" );
		}
		
		if (! $this->smtp_putcmd ( "RCPT", "TO:<" . $to . ">" )) {
			return $this->smtp_error ( "sending RCPT TO command" );
		}
		
		if (! $this->smtp_putcmd ( "DATA" )) {
			return $this->smtp_error ( "sending DATA command" );
		}
		
		if (! $this->smtp_message ( $header, $body )) {
			return $this->smtp_error ( "sending message" );
		}
		
		if (! $this->smtp_eom ()) {
			return $this->smtp_error ( "sending <CR><LF>.<CR><LF> [EOM]" );
		}
		
		if (! $this->smtp_putcmd ( "QUIT" )) {
			return $this->smtp_error ( "sending QUIT command" );
		}
		return TRUE;
	}
	
	private function smtp_sockopen($address) {
		if ($this->relay_host == "") {
			return $this->smtp_sockopen_mx ( $address );
		} else {
			return $this->smtp_sockopen_relay ();
		}
	}
	
	private function smtp_sockopen_relay() {
		$this->log_write ( "Trying to " . $this->relay_host . ":" . $this->smtp_port . "\n" );
		$this->sock = @fsockopen ( $this->relay_host, $this->smtp_port, $errno, $errstr, $this->time_out );
		
		if (! ($this->sock && $this->smtp_ok ())) {
			$this->log_write ( "Error: Cannot connenct to relay host " . $this->relay_host . "\n" );
			$this->log_write ( "Error: " . $errstr . " (" . $errno . ")\n" );
			return FALSE;
		}
		
		$this->log_write ( "Connected to relay host " . $this->relay_host . "\n" );
		return TRUE;
	}
	
	private function smtp_sockopen_mx($address) {
		$domain = ereg_replace ( "^.+@([^@]+)$", "\1", $address );
		if (! @getmxrr ( $domain, $MXHOSTS )) {
			$this->log_write ( "Error: Cannot resolve MX \"" . $domain . "\"\n" );
			return FALSE;
		}
		
		foreach ( $MXHOSTS as $host ) {
			$this->log_write ( "Trying to " . $host . ":" . $this->smtp_port . "\n" );
			$this->sock = @fsockopen ( $host, $this->smtp_port, $errno, $errstr, $this->time_out );
			if (! ($this->sock && $this->smtp_ok ())) {
				$this->log_write ( "Warning: Cannot connect to mx host " . $host . "\n" );
				$this->log_write ( "Error: " . $errstr . " (" . $errno . ")\n" );
				continue;
			}
			$this->log_write ( "Connected to mx host " . $host . "\n" );
			return TRUE;
		}
		$this->log_write ( "Error: Cannot connect to any mx hosts (" . implode ( ", ", $MXHOSTS ) . ")\n" );
		return FALSE;
	}
	
	private function smtp_message($header, $body) {
		fputs ( $this->sock, $header . "\r\n" . $body );
		$this->smtp_debug ( "> " . str_replace ( "\r\n", "\n" . "> ", $header . "\n> " . $body . "\n> " ) );
		return TRUE;
	}
	
	private function smtp_eom() {
		fputs ( $this->sock, "\r\n.\r\n" );
		$this->smtp_debug ( ". [EOM]\n" );
		return $this->smtp_ok ();
	}
	
	private function smtp_ok() {
		$response = str_replace ( "\r\n", "", fgets ( $this->sock, 512 ) );
		$this->smtp_debug ( $response . "\n" );
		if (! ereg ( "^[23]", $response )) {
			fputs ( $this->sock, "QUIT\r\n" );
			fgets ( $this->sock, 512 );
			$this->log_write ( "Error: Remote host returned \"" . $response . "\"\n" );
			return FALSE;
		}
		return TRUE;
	}
	
	private function smtp_putcmd($cmd, $arg = "") {
		if ($arg != "") {
			if ($cmd == "")
				$cmd = $arg;
			else
				$cmd = $cmd . " " . $arg;
		}
		
		fputs ( $this->sock, $cmd . "\r\n" );
		$this->smtp_debug ( "> " . $cmd . "\n" );
		return $this->smtp_ok ();
	}
	
	private function smtp_error($string) {
		$this->log_write ( "Error: Error occurred while " . $string . ".\n" );
		return FALSE;
	}
	
	private function log_write($message) {
		$this->smtp_debug ( $message );
		if ($this->log_file == "") {
			return TRUE;
		}
		
		$message = date ( "M d H:i:s " ) . get_current_user () . "[" . getmypid () . "]: " . $message;
		if (log_file > ! @file_exists ( $this->log_file ) || ! ($fp = @fopen ( $this->log_file, "a" ))) {
			$this->smtp_debug ( "Warning: Cannot open log file \"" . $this->log_file . "\"\n" );
			return FALSE;
		}
		flock ( $fp, LOCK_EX );
		fputs ( $fp, $message );
		fclose ( $fp );
		return TRUE;
	}
	
	private function strip_comment($address) {
		$comment = "\([^()]*\)";
		while ( ereg ( $comment, $address ) ) {
			$address = ereg_replace ( $comment, "", $address );
		}
		return $address;
	}
	
	private function get_address($address) {
		$address = ereg_replace ( "([ \t\r\n])+", "", $address );
		$address = ereg_replace ( "^.*<(.+)>.*$", "\1", $address );
		return $address;
	}
	
	private function smtp_debug($message) {
		if ($this->debug) {
			echo $message;
		}
	}
	private function base64($str) {
		return "=?" . $this->charset . "?B?" . base64_encode ( $str ) . "?=";
	}
}
?>